home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
gear
/
paint
/
palette1.txt
< prev
next >
Wrap
Text File
|
1993-11-30
|
1KB
|
26 lines
MOUSE 4,527,306,639,370
VIEW ,0
G=255
R=255
B=255
PALETTE 1,[G,0,0]
PALETTE 2,[0,R,0]
PALETTE 3,[0,0,B]
PALETTE 4,[G,R,B]
WHILE MOUSE(2,1)=0
IF MOUSE(2,0)=-1 THEN GOSUB *TOBI
LINE (547,308)-(619,327),PSET,%1,BF,%1
LINE (547,328)-(619,347),PSET,%2,BF,%2
LINE (547,348)-(619,367),PSET,%3,BF,%3
LINE (527,368)-(639,387),PSET,%4,BF,%4
WEND
END
*TOBI
IF MOUSE(7,0)<546 AND MOUSE(8,0)<327 THEN RESUME NEXT : G=G-1:IF G<0 OR G>255 THEN RETURN:PALETTE 1,[G,0,0]:PALETTE 4,[G,R,B]
IF MOUSE(7,0)<546 AND MOUSE(8,0)<347 THEN RESUME NEXT : R=R-1:IF R<0 OR R>255 THEN RETURN:PALETTE 2,[0,R,0]:PALETTE 4,[G,R,B]
IF MOUSE(7,0)<546 AND MOUSE(8,0)<367 THEN RESUME NEXT : B=B-1:IF B<0 OR B>255 THEN RETURN:PALETTE 3,[0,0,B]:PALETTE 4,[G,R,B]
IF MOUSE(7,0)>620 AND MOUSE(8,0)<327 THEN RESUME NEXT : G=G+1:IF G<0 OR G>255 THEN RETURN:PALETTE 1,[G,0,0]:PALETTE 4,[G,R,B]
IF MOUSE(7,0)>620 AND MOUSE(8,0)<347 THEN RESUME NEXT : R=R+1:IF R<0 OR R>255 THEN RETURN:PALETTE 2,[0,R,0]:PALETTE 4,[G,R,B]
IF MOUSE(7,0)>620 AND MOUSE(8,0)<367 THEN RESUME NEXT : B=B+1:IF B<0 OR B>255 THEN RETURN:PALETTE 3,[0,0,B]:PALETTE 4,[G,R,B]
RETURN